/* Library Online Update Generating Script */ Open("Lib","Ram:Lib-OnlineUpdate","R") Open("HTML","Ram:Lib-OnlineUpdate.html","W") writeln("HTML",'') writeln("HTML",'') writeln("HTML",'LibGuide Update Form') writeln("HTML",'

 

 

') writeln("HTML",'
Welcome to the Online LibGuide Update Form
') writeln("HTML",'Please go online, select a server for download and push the Search-Button.
Please select an Aminet-Server:
 
') i=0 Do While 1 zeile=readln("Lib") If Eof("Lib") then leave i=i+1 writeln("HTML",'') End writeln("HTML",'') writeln("HTML",'') writeln("HTML",'') Open("lang","ENV:language","R") language=readln("lang") Close("lang") If language="deutsch" then writeln("HTML",'') else writeln("HTML",'') writeln("HTML",'

') writeln("HTML",'

LibGuide is © 1996-1998 by Heiko Schröder
LibSearch is © 1998 by Peter Teich, docu:media made with Perl 5.004

') Close("Lib") Close("HTML") Exit